﻿Public Class Form1
  Private Sub Button1_Click(
            ByVal sender As System.Object,
            ByVal e As System.EventArgs) _
            Handles Button1.Click

    Dim NL As String = Environment.NewLine
    Dim value As System.Windows.Forms.Screen =
      My.Computer.Screen
    For Each schermo In Screen.AllScreens
      MessageBox.Show(
        "PrimaryScreen: " & Screen.PrimaryScreen.ToString &
          NL & NL &
        "DeviceName:" & schermo.DeviceName & NL & NL &
        "Primary?: " & schermo.Primary & NL & NL &
        "BitsPerPixel: " & schermo.BitsPerPixel & NL & NL &
        "Bounds: " & schermo.Bounds.Size.Width & "x" &
          schermo.Bounds.Size.Height & NL & NL &
        "WorkingArea: " & schermo.WorkingArea.Size.Width &
          "x" & schermo.WorkingArea.Size.Height)
    Next

  End Sub
End Class
